home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / fortran / fckdemo1.zip / TRUNC.LST < prev    next >
Encoding:
File List  |  1994-04-12  |  1.6 KB  |  63 lines
  1.  FORCHECK PC V11.10  MS5 compiler emulation  02-Feb-94  11:10:25  page: 1
  2.  TRUNC.FOR  
  3.  
  4.  
  5.       1 c
  6.       2 c                       FORCHECK
  7.       3 c                  Signal Truncation
  8.       4 
  9.       5         CHARACTER*10 filename, filespec
  10.       6         INTEGER*2 i2
  11.       7 
  12.       8         READ *, filename
  13.       9         filespec = filename // '.FOR'
  14.      10 
  15.    filename // '.FOR'
  16.  **[125 I] truncation
  17.      11         READ *, i
  18.      12         i2 = i
  19.      13 
  20.    i
  21.  **[125 I] truncation
  22.      14         OPEN (unit=i2, file=filespec)
  23.      15 
  24.      16         END
  25.  
  26.  FORCHECK PC V11.10          .MAIN.          02-Feb-94  11:10:25  page: 2
  27.  TRUNC.FOR  
  28.  
  29.  
  30.  ENTRY          TYPE NARG  LINE
  31.  
  32.     .MAIN.         P
  33.  
  34.  
  35.  VARIABLE    TYPE     RANK  OPERATIONS  LINES
  36.  
  37.     FILENAME CH*10                I  R   5   8#  9
  38.     FILESPEC CH*10               A   R   5   9# 14
  39.     I         I*4                 I  R  11# 12
  40.     I2        I*2                A   R   6  12# 14
  41.  
  42.  
  43.  UNIT_IDENTIFIER  ACCESS OPERATIONS    LINES
  44.  
  45.     I2              S F      O         14
  46.  
  47.  FORCHECK PC V11.10  MS5 compiler emulation  02-Feb-94  11:10:25  page: 3
  48.  
  49.  
  50.  *END OF ANALYSIS*
  51.  
  52.  messages presented:
  53.     2x[125 I] truncation
  54.  
  55.  number of informative messages:          2
  56.  
  57.                                       total  not-included
  58.  number of noncomment source lines:       8             8
  59.  number of nonempty comment lines:        2             2
  60.  number of statements:                    8             8
  61.  number of subprograms:                   1
  62.  number of source files:                  1
  63.